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@)Copyright 1887 INDUG, All Rights Reserved, 


Ho part of this Lr nay be LHe ett in any form without 
the written consent of the publishe IG nenbers may copy progran 
naterial only for their own personal use, 


FORMAT is cua by INDUG, 34 Bourton Road, Gloucester, GL4 OLE, 
England, Telephone 0452-412572, DISCIPLE and d PLUS=D are trade narks 
ce MILES oontby TECHNOLOGY, Unit seen eure ton Mill, French’s Road, 

anbridge, CB4 3HP, England, SCiPLE interface is mkt eg by 
ROCKPORT hooucTs, $1 Church Road, Hendon, London, KW¢ 40P 


I'm sorry the January issue was a little late going out, but 
we had a change of printers at the last moment, I hope you found 
it worth waiting for. 


‘This month sees th 
Incremental Backup 
program we've p 
calls that it has been well received. Issue #7 sees the start of 
ING GENS from 


e@ end of the series of articles on the 
lity from Nev Young, it's been the biggest 
ed but I know from your letters and phone 


two new and interesting series. The first, 
Dave Kennedy will interest most machine 
there's lots to le nif you don't use Gi 
other comes from tting with a DATA co: 
preliminary to an irregular series on new features for the GDOS 
operating system. 


start a new competition this issue, with over E 
h of prizes for the winn not bad I think 
agree. On the subject of competitions I must say how 

was with the response to the XMAS WORDSQUARE 
ION, so far there's been over sixty entries, the winners 
be announced in the next issue. Let me know if you want us 


mised the start of a letters 
re's been no letters to print, apa: 
praise for FORMAT which I am of co 
est to print (I @ them instead so keep them coming). Leta 
have a few letters, lets get a few debates g in these pages, 
lets air a few views. I'm also still loo! for writers. Any 
article on any subject from any angle. Don't be afraid, send it 
in. 


Anyone out there read CRASH? well the Feb'88 issue contains a 
very good review of the PLUS D by Simon Goodwin, it contains 
some nice comments about INDUG and FORMAT, good taste that man. 


See you next month. 
Bob Brenchley. Editor. 


OUSGiPLE NEWS. 


KEMPSTON MOUSE 


DISCiPLE / PLUS D owners have finally got a mouse to use with 
their machines. Kempston Data Ltd have now launched a fully 
compatible mouse and interface together with a cassette of 
Toolkit software. 


‘The Mouse is their usual high resolution two button unit 
connected to a small interface (same size as their joystick 
interface) which plugs into the DISCiPLE's rear port. The PLUS D 
requires the MicroSlot two-way adaptor from MGT. The Toolkit 
software is a set of machine code routines designed for use from 
Basic, they give a WIMP environment (Windows, Icons, Menus, 
Pointers) with lots of extras. A full review is planned for the 
next issue. 


The new Mouse costs £49.95 incl VAT and p & p. Existing 
Kempston Mouse owners are not left out in the cold either, an 
upgrade service is available, simply return your unit to 
Kempston with a cheque for £15 and they will upgrade it and 
return it with the new software. 


Kempston Data Ltd, 22 Linford Forum, Rockingham Drive, Linford 
Wood, Milton Keynes, NK14 GLY. Tel 0908 690018 


SINCLAIR PLANS BIG-BROTHER TO 288 


Uncle Clive may launch a desktop computer as an big brother to 
his successful 288 laptop. With the growing salao of the 268 his 
new computer will help to establish the business market he 
failed to reach with the QL. Meanwhile the USA will be seeing 
{ts first shipments of the 288 in the next 6 to 10 weeks. 


There is, ALAS, no plans for the launch of a games machine (or 
so he says). 


+3 IN 42 


Rumours are floating around about a Spectrum+2.5? This beast, 
which has been sighted abroad, is outwardly a +2 but with a 
modified +3 circuit board inside. It is believed that the +3 
board is cheaper to make and this is the main reason for the 
experiment. 


Lets hope Amstrad rethink it's launch of the new version of 
the +2, with the missing lines on the edge connector and it's 
changed paging system there will be little hardware and software 
to use with it. 


EXPRNDINE GENS 


By: DAVE KENNEDY 


GENS, part of the excellent DEVPAC system from HISOFT, has 
long set the standard for Spectrum assemblers. Few M/C 
Programmers will not have a copy in their collection of 
utilities, While the program will work with the DISCIPLE / PLUS 
D you really don't get the best out of the disc system. 


Over the next few months I will list a set of routines that 
will modify version 3.2M of GENS to work more fully with the 
DISCIPLE / PLUS D disc system and then add a few new commands 
which I think you will find useful, The modification method is 
fully described so that it could be altered for another version 
of GENS, 


The routines come in two sections, the first simply alters the 
GET, PUT and OUT commands to work with ¢ and adds a CAT 
command without using any extra memory. The second section adds 
a 'block line copy' command and a more legible printer listing 
and uses 420 bytes of memory below GENS. The assembler program 
still remains totally relocatable, 


You should load your version of GENS3 into memory at 27000 and 
also at high memory, say 40000. The assembler text should be 
entered in the high memory version and run. The low memory 
modified version should then be saved before calling so that the 
relocation code is not altered. All addresses quoted assume that 
the version of GENS to be modified is loaded at 27000. 


When arguments are used with an assembler command, for example 
P1,999,FILENAME then the binary values of the line numbers will 
be stored at 34298 #85FA (NUM1) and 34300 #85FC (NUN2) and any 
other input in the internal buffer at 34256 #85D0. The main SAVE 
routine is from listing line 110 (OUT1), if the input filename 
is not already used then the required code block is saved. 
Otherwise an ERASE option is given and then either a SAVE or 
exit made. I save the textfile as a code block for speed - it is 
several times faster than saving as a sorial file, although the 
"a" command is not really usable with a block save. 


The CAT command will return to Basic at statement 4 of line 1 
this can, of course, be changed. At line 1 I have :- 


RAND USR 26580:PRINT USR 60000:GOTO 1: CAT PEEX 16384;"2277227 
2?¢":PAUSE 0:GOTO 1 


Notice how the tenth character is a "+", I add this to the 
filename in the GET and PUT routine to produce an easier to read 
CAT listing. For single drive systems’ you could alter the 
listing to default to drive one. 


The load command (GET at line 1150) forms the GDOS 'User File 
Information Area' within GENS modifying the filename buffer as 
necessary. If the file is not found in the disc directory then a 
return to GENS input mode is made at line 1240, otherwise the 
code length details are taken from the header and after file 
loading the GENS textend marker at 27054 is modified. If the 
textstart at 34316 does not equal the previous textend then the 
textfile is renumbered with a step interval of one as a textfile 
was already present. a 


The SAVEA routine from line 380 modifies the internal buffer 
and forms the ten character filename, with the tenth character 
changed to a "+" so that a CAT listing of assembler only files 
may be made. A table of the assembler command addresses is 
stored from 34132 #8554, in the form of letter then call 
address, this is modified as required by lines 1660. 


unshifted "-" character, I prefer to use 
as the tape/disc decider in the filename. 
instruction, any other value can 


As my keyboard has 
it in place of the ” 
This modifies the GENS "CP " 
be used. 


10 DK QU 27000 
10 DK BQU 27000 

20 DKI EQU DK-1 

30 DK2 EQU DK1-1 

40 

50 ORG #71F6 - save textfile 

60 pur CALL SAVEA-DK = save textfile 

10 LD (1X614),"4 "@ file identifier 

80 JR OUTI 

100 our CALL SAVEA-DK = save object code 

110 OUT! PUSH HL code length 

120 PUSH DE code start 

130 ouT2 RST 8 jopen file header 

140 DEFB #35 

150 JR NC,OUTA jif carry, filename already used 
160 RI CALL ERASE-Dk print, beep and input 

170 AND 2: jto upper case 

180 ce "y' 

190 JR Z,0UT3 ;if "y" then erase file 

200 POP HL, 

210 POP HL yelse reset stack and then 

220 RET jabandon erase & return to input 
230 OUT3 LD IX,BUFFER jreset: "ix" as altered by above 
240 PUSH 1x 

250 RST 8 

260 DEFB #41 jerase file 

270 POP IX jrestore "ix" 

280 SR OUT2 jand repeat open file 

290 OUT4 POP DE jeode start 

300 POP BC jeode length 

310 RST 8 

320 DEFB #37 jsave code block to disk 

330 RST B 

340 DEFB #38 jelose file 

350 RET 

360 


370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
310 
820 
830 
840 
850 
260 
870 
880 
890 
900 
910 


SAVEA 
R6 
SAVEB 


R7 
Ra 


SAVE1 


SAVE 


SAVES 


SAVES 


SAVE6 
SAVE7 


ORG 47132 


joverwrite m/drive code 


LD (BUFFER+16),HL ;code length 
LD _(BUFFER+18),DE ;code start 


PUSH EL 
PUSH DE 

LO HL, BUFFER 
PUSH HL 

LD A, (BUFFER+3) 
suB 43 

ce 1 

JR 2,SAVE1 

LD A,2 

ED (2b) ,A 

PUSH HL 

RST 8 

DEFB #21 


LD BC, #0A00 
LD (HL),C 
INC HL 

LD (HL) ,C 
INC HL 

LD (#L),"a" 
INC HL 

LD (HL) ,4 
LD A,13 
INC HL 

cP (HL) 
OR Z,SAVE4 
DINZ SAVE2 
INC HL 
XOR A 

ce B 

SR 2, SAVE6 
LD (#L)," " 
INC HE 
DJN2 SAVES 
LD (HL) ,3 
LD B,5 

INC HL 
DINZ SAVE7 
LD (HL),C 
INC HL 

LD (HL),C 
INC HL 
DEC ¢ 

LD (HL) ,C 
INC HL 

LD (HL),C 
POP IX 
POP DE 
POP HE. 
RET 


Next month, the end of the 
of the new features. 


idrive number 


7if not drive "1" then 
default to drive "2" 


juse m/drive select drive hook code 
jto overcome "dos" problem 
jdisabled by hook code 


jrecover buffer position 
7b = filename length 


idirectory type 


74f n/line then at filename end 


for 10 characters 


if not 10 character length 


;then pad out with spaces 


jeode type file 
ybypass code length & start details 


finish setting up buffer 
uffer start 

jeode start 

jeode length 


PUT, GET 4 ‘OUT coding and the start 


NATIONAL DIS 


GIVE your DISC DRIVES A TREAT 
VE THEN THE BEST 


SUPPLIES 


D4 inch DS7DD 96tpi Discs 
Duplication Standard 


25 Discs only £19, 95 
50 Dises only £36.99 
75 Dises only £52.99 
100 Dises only £65,95 


Bulk Packed with Sleeves 


3% inch DS/7DD Bulk Packed 


10 25 50 


£14.95 £39.95 £64.99 


SEND CHEQUE/P.O. IN STERLIN 10 _ 
NATIONAL DISC SUPPLTES 
16 Westland Rd, Hardwicke, 
Gloucestershire, GL2 6QH. 


ALL PRICES INCLUDE UK POST 
QUERSEAS ADD £3 EUROPE 


BASIC: 


r 


TASWORD 2. 


By: J.D-RELL 


often need to print out part of a Basic program within an 


article. At first I printed the top part of the page from 
Tasword 2, then LLISTed my program, and finally printed the rest 


of 


the article. This was OK if the program was to form one 


block, but just about impossible if the lines were to be 
interlaced with lines on the page. 


If 


I had resorted to typing in the program lines then errors 


could have been introduced and these would have been difficult 


to 


find. So I needed another method. Now Tasword 2 stores it's 


files as CODE starting at address 32000, If the Spectrum LLIST 
could be redirected into memory then my problems would be 
solved. 


This progran was originally written for Microdriv 


and owes a 


lot to the excellent book "MASTER YOUR 2X MICRODR by Andy 
Pennell. 
10 REM BASIC TO TASWORD 2 FILE CONVERTER. 


REM V1.3 JUNE 1987, 
REM WRITTEN BY J.D.R. 
CLEAR 31999:REM Clear space for Tasword file 
GOsUB 200 
cis 
PRINT INVERSE 1;"BASIC TO TASWORD 2 FILE CONVERTER.” 
converter loaded. Now: = 
LOAD your basic program. 

N the DISCiPLE's INHIBIT button.” 
1? 31,0" 


ANDOMIZE USR 23360'" 
List'" 
INHIBIT button.” 


ty; 
"SAVE dt CODE 32000, PEEK 23353+256*PEEK23354" 
RESTORE 
FOR I=23296 10 23372: READ N: PO! 
RETURN 
DATA 254,13,32,15,237,91,57,91 ,62,63 
DATA 163,200,62,32,205,28,91,24,245,254 
DATA 155,56 ,5,214,165,195,16,12, 237,91 
DATA 57,91,42,178,92,35,25,119,19,237 
DATA 83,57,91,254,32,40,5,253,203,1 
DATA 134,201, 253,203,1,198,201,0,0,0,0,0,0,0 
DATA 42,79,92,62,15,141,111,54,0,35 
DATA 54,917,201 
CLEAR ; SAVE d1"BASIC-TAS" LINE 10 
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at 


seas 


Since Trojan Products took over marketing "THE LAST WORD' from 
Myrmidon Software last year, many DISCIPLE users have been 
putting this excellent word processor to good use. 


Alas, new PLUS D owners have not been so lucky, slight 
hardware differences and the omission of an interrupt vector 
table in TLW hava meant that the program crashed as soon as it 
was loaded. Well now the problems are solved. Nick Buckenham, 
the author of TLW (and owner of Myrmidon), has kindly sent in 
the following alterations to allow TLW to work with the PLUS D. 


I must thank Nick for the speed in which he has sorted things 
out, if only all software companies were as good as this. 


’ Without the PLUS D attached to your Spectrum, load TLW from 
tape as instructed in the manual. 


2. Enter as direct commands POKE 65252,190 POKE 65253,191 


3. Type CLEAR 40000 then RUN the program. Go into the word 
processor (Option 1 from menu) then press the ENTER key 
followed by Extended-Mode 'B' to return to the menu. Now 
preas '0' to exit to Basic. 


4. Repeat step 3 but use CLEAR 30000 instead. This has now 
cleared 395 bytes at the bottom of the TLW machine code for 
the new material, given below, to occupy. 


Now enter these pokes. POKE 64139,192 POKE 49067,195 
POKE 49088,161 POKE 49089, 244 


As a direct command enter this line of Basic:~ 
FOR N=49152 TO 49409: POKE N,191: NEXT N 


7. Alter the code file start and length values in line 60 to 
49087,16449 (was 49480,16055). 


8. Now SAVE the program to a blank tape by doing a RUN 50 
9. With your PLUS D attached, 'BOOT' your disc system and load 
the amended TLW from tape. Then carry out the instructions 
(in TLW's manual) to convert the program for the DISCiPLE. 
The mods in step 7 should also now be done to line 80. 
10. Save ‘TIE LAST WORD! to disc by entering RUN 70 
Thats all there is to it, if things don't work then run 


through again and make sure all the POKEs are entered correctly, 
and as direct commands. 
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COMPETETEON 


Anew competition, open to all INDUG members, with really 
FANTASTIC prizes. 


Yes our SPRING COMPETITION is a must for everyone. We have 
lots of prizes including a super NEW PRINTER, Lots of SOPTWARE, 
stacks of DISCs and much much more. In fact over 
THREE HUNDRED POUNDS worth of prizes for members to win, 


So what have you got to do to win a prize? well it's simple 
really (well not too difficult) just write a piece of software. 
Tt could be a UTILITY, a BUSINESS program, an EDUCATIONAL 
program or a GAMB, It can be in Basic, Machine Code or any other 
language the Spectrum will understand and provided we can run 


Each program we receive, and you can submit more than one, 
will be evaluated by a small team of reviewers and prizes will 
be awarded on the basis of :- 

a) Use of machine. 


b) Standard of programmin 


c) it's appeal to Spectrum and/or DISCiPLE / PLUS D users. 
a) originality. 


Your program need not use tho DISCIPLE or PLUS D, it could be 
written for an unexpanded Spectrum and it wouldn't looso marks. 
Entries should be on 5.25" 40/80 track, 3.5" 80 track discs or 
on tape. Please include detailed instructions and a short 
write-up on how (and why) you wrote the program. 


Address to INDUG, 


34 Bourton Road, Gloucester, GL4 OLE. and 
mark the envelope 


SPRING SOFTWARE COMPETITION. 


Closing date is 30th April 1968. Winners will be notified hy 
post and the results will be published in the July issue. So get 
writing, there's no limit to the number of entries you can make. 
As usual in these things, the Editor's decision is final (and no 
bribes under £500 will be considered). 


The winners, and in fact all other submissions, will also be 
considered for publication in FORMAT, or on tape, 50 even if you 
don't win a top prize you can still earn money from you efforts, 
A copy of the full rules will be available on request. 


GOOD LUCK 


Ww 


BARGAIN CORNE 


BRISTOL Forty year old NEWCOMER to the DISCIPLE wishes to swap 
jdess and software preferably with soneone of similar age living 
{nor near the Bristol area. Ring 04545 - 3670 or write to 
DuNethercott, 144 Beach Road, Severn Beach, Bristol, BS12 3PQ. 


SPECTRUM 48K Three Interface 1s, Three Drives, Serial Printer, 
\Biphacon Printer, 2XLPRINT III, PLUS 'D', Voyager Modem, Tandy 
Colour Graphic Printer, £300 the LOT. May split. Phone Gordon on 


0276 32498. 


LONDON 60 Year old DISCIPLE dunce would like to comniserate with 
fellow-sufferer in Crystal Palace area. Ring Jack Law on 
(01) 653 8601. 


YOUR ADVERT 
Buying, Selling, Pen Friends, Clubs, etc. 


Any PRIVATE advert (subject to 
acceptance) will be run in the next Table issue of format. 
It costs you just £1.25 for up to 30 words. Any software sold 
must be original copies, with full instructions and in working 
order. The publishers will not be held, in any way, responsible 
for adverts in this column. 


whis space is reserved for you 


dee 


BACK ISSUES BACK ISSUES BACK ISSUES BACK ISSUES SACK ISSUES 
BACK ISSUES 


BACK ISSUES BACK ISSUES BACK ISSUES SACK ISSUES SACK ISSUE 
BACK ISSUES’ BACK ISSUES BACK ISSUES BACK ISSUES BACK TSSU 


For members who have missed past issues of FORMAT (or perhaps 
worn theirs out through constant use) we have now introduced, by 
popular demand as they say, a back-issue service. 


The cost is 60p per copy (80p overseas). Your copies will be 


sent out as soon as possible but, in order to keep printing 
costs down, it may take up to 21 days for us to dispatcl 


Available Issues 


Issue 1 - August 1987. Issue 4 November 1987 

Tssue 2 - September 1987. Issue 5 December 1987 

Issue 3 - October 1987. Issue 6 January 1988 
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JT NGREMENTAL 
ACKUP 
LJ PLL ix 


By: NEV YOUNG 


In this, the final art 
auchineycode eoutinestyouliiesde <8 wace ovaiees Uanagntan Ree: 


7 dt has to start som 
merge oe ewhere so lets start at 65000 leaving 535 


ORG 65000 
‘THE_STAR’ 


; A routine for filling any area of memory with 
The start address is held in the word var’ ‘ole atare’ 8 tne 
nd) sadavess) 1s/held inthe word) var’ \cir, end’. ‘The byte to be 
placental the area is held in ‘clr byte’. It will be placed 
Anto all memory locations inclusive of the start and end 


CLR_START: DEFW 00 
CLRCEND: DEFW 00 
CLRIBYTE: DEFB 0 


CLR_MEN: 

LD Ml, (CLR_END) 

LD DE, (CLRISTART) 

SBC HL,DE 

LD B,it 

LD C,L ; BC now contains the number of bytes to fill 


LD HL, (CLR_START) 

LD D,it 

LD EL 

INC DE ; DE points to (CLR_START+1) 

ip DACURSE Ya ; get the byte 

UI Aj and put it into the first 1 

UPIR ; ‘now clear the memory a ae 
RET ; and return 


i a routine to compare two areas of menor 
a y. the start 
are held in he word variables 'BASE_1 and BASE 2 and the 


number 4 
terest bytes to compare is held in the single byte variable 


7 the routine will return with BC= 0 if 
= the compare 4) 
otherwioe it will return with B = to the munber of bytes a 
compare and C = to the value of the difference (xORed) of tho 
wo bytes that caused the compare failure 


BASE_1: DEFW 00 
DEFW 00 
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C_LEN: DEFB 0 ; compare 256 bytes 
DEFB 0 ; used to ease programming _ 
ComP_1: ; start here 

PUSH IX ; save IX 

LO HL, (BASE_1) 

LD IX, (BASE_2) 

LD BC,C_LEN 


COMP_LOOP: ; main loop 
LD A, (HL) 

MOR (IX) 

JR _NZ,COMP_END 

INC HL 

INC IX 

DgNzZ COMP_LOOP 


COMP_END: ; the exit route 
LD G,A ; the difference 
POP IX j restore IX 
RET ; go home 


This routine will build a sector map in memory for the 
disciple discs. Each bit is one sector and corresponds to the 
bit map contained within the file headers. The bits are chosen 
from a 256 byte area of memory that is assumed to be a 
disciple disc header. The start address is contained in the 
word variable map_addr and the area to build the map starts at 
the address contained in the word variable 'MAP_STORE'. The 
code itself is relocatable 


LD Hb, (MAP_ADDR) 
LD IX, (MAP_STORE) 
LD B,0 ; map all 256 bytes 


3 

} Zam well aware that the map only goes from byte 14 of the 
sector through to byte 210, If you are concerned about a few 
millisecs then change it. 


i 
MAP_LOOP: 

LDA, (IX) 

OR (HL) ; logical or of the map bits 
LD (IX),A 

INC IX j move on to the next byte 
INC HL 

DUNzZ MAP_LOOP 


fall through to the return routine 


"20B 1X 
RET 
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Here we have a routine that, given a disciple sector map, will 
return with be = the sector number of the next sector used 
within the map. In this case the first sector on the disc is 
0. The lowest sector returned is 40 ie the first sector after 
the directory 


The track and sector can be calculated from 

t = Int (BC / 10) 

s= 1+ BC-t * 10 
all that then remains is to correct for the discontinuity when 
you change sides. The routine is very repetitive but it works. 
Also you must note that as part of its function it will 
destroy the sector map. When there are no more bits set in the 
map dt will return with BC = OFFFFH. 


It is intended that this routine be used with the map_build 
routine and uses the same map_store 


WEXT_START: 

Lp BC,39 

LD DE,15 

LD HL, (MAP_STORE) 
ADD HL, DE 

LD DE, 210-15 


NEXT_O: ; test the first bit in this byte 

INC'BC ; inc the sector number 

BIT 0, (HL) ; do the test 

JR %,NEXT 1 ; Lf not set move on to the next bit 
RES 0,(HL) j otherwise reset it 

RET ; and return 


NEXT_1: ; same as before but for a different bit 
INC BC 
BIT 1, (HL) 


ORB NEXT 2 
RES 1, (ML) 
RET 
NEXT_2: 

INC BC 

BIT 2, (HL) 


OR %,NEXT_3 
RES 2, (iL) 
REY 


3 
NEXT_3: 

INC BC 

SIT 3, (HL) 

OR &)NEXT_4 

RES 3, (HL) 

RET 

NEXT_A: 

INC BC ’ 


BIT 4, (HL) 
OR Z,NEXT_S 
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RES 4, (HL) 
RET 


NEXT_5S: 

INC BC 

BIT 5, (HL) 
IR 2,NEXT_6 
RES 5, (HL) 
RET 


NEXT_ 
INCBC 
BIT 6, (HL) 

, IR 2, NEXT_7 
RES 6, (HL) 
RET 


NExt_7: 

INC BC 

BIT 7, (HL) 
OR 2,NEXT_8 
RES 7, (HL) 
RET 


NEXT_8: ; done all the bits in this byte so lets move on to the 
next 


INC HL 

DEC Dz 

LD A,D ; test if a11 bytes done 

OR 2; DE = 0 if all done 

JR N2,NEXT_O ; more to do so jump back 
LD 5C,OFFFFA ; report end 

RET } and go home 


i 
‘THE_ZND: ; mark the end address 


| this ds the linkage section, here all the memory locations 
used are listed so that they can be peeked at by basic basic 
should then store the addresses in similar named variable and 
use that to reference the machine code variables 


ORG 65500 ; start at a known address. 
DEFW THE_START 

DEPW CLRISTART 

DEFW CLRTEND 

DEFW 

DEPH 
DEFW 
DEPW 
DEFW 
DEPW It 
DEFW 
DEFW NEXT_START 


Well that's it, I hope I have explained things well enough and 
I hope you find I.8.U. as valuable as I do. For those of you who 
dread the task of typing in the program turn to the USE page. 
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ATA COMP) Len 


By: STEVE NUTTING 


This data compiler is going to be a very important machine 
code routine over the coming FORMAT issues. The routine compiles 
special REM data values at high speed in less than a second and 
then dumps the code to Spectrum memory, The routine is fully 
error trapped and will display holpful error messages. ‘Type in 
the long listing and RUN it if all o.k. the program will 
automatically save the machine code routine to disc, keep this 
in a safe place you will need it soon. 

Lets try an example listing which will help you to understand 
what the compiler does and how to correct errors. Type this in:- 

5 CLEAR 29999: RANDOMIZE USR 64512 

10 REM 530000 

20 REM 62,70,33,0,64,17,0,24,117,84,30,1,237,176 

30 REM 119,1,255,2,237,176, 201 

40 REM @ 

Then type CLEAR 64511: LOAD di "datacomp" CODE, Type RUN and you 
will see on top of the screen The Compile address which is where 
the following bytes will be poked into memory, note line 10 REM 
$ defines the address. You may just see on the screen numbers 
after the LINE wizz past, this shows which line the compiler i: 
working on. It should end up showing line 40, Note REM o tells 
the compiler when to stop, This should always be at the end of a 
listing. 

Lets now make some alterations to the listing to force error 
messages, first alter line 10 to become REM s64512 now type RUN, 
you should now come up with the error message ADDRESS OUT OF 
RANGE BETWEEN RAMTOP+1 TO 64511. This means you have tried to 
compile bytes below RANTOP or above 64511 which may crash the 
computer, Now alter line 10 to REM 540000 and alter byte 70 in 
Aine 20° to 700 then type RUN. This time the error message BYTE 
OUT OF RANGE BETWEEN 0-255 20:2, this means that in.line 20 and 
the 2nd byte in that line is not in range between 0-255. So 
press EDIT and alter byte 700 to 70, note no need to LIST 20 
then EDIT, my routine automatically sorts the line so you only 
need to press EDIT. Next alter line 30 to become 30 REM 
19,1,255,237,176,201:991 and type RUN. You now should seo 
CHECKSUM DATA ERROR 30:7, meaning the the bytes in line 30 do 
not add up to 991 because you either entered a wrong byte (in 
this case 19 should be 119) or you had too many or too few data 
statements in line 30 (in this case we missed out data byte 2). 
If we now alter line 30 to become REM 
119,1,255,2,237,176,201:991 and type RUN we shouldn't get an 
error message. Now delete line 10 and type RUN, you should get. 
the error message NO COMPILE ADDRESS At START. This means you 
have not entered the REM 8 address to define the memory location 
whore the following bytes will be poked into. 

‘The first special REM listing will appear in the next issue of 
format with others to hopefully follow soon after. 
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1 CLEAR 64511: LET cx0: FOR a=64512 TO 65392: READ n: POKE a,n 
: LET cxcen: NEXT a: IF c¢> 96318 THEN PRINT "DATA ERROR": STOP 
5 SAVE di "datacom p" CODE 64512,881: STOP 
10 DATA 62,2,205,1,22,33, 152,254, 205,140,254, 42,83,92,35,35,94, 
35,86,25,17,6,0,25,126, 203,175, 254,83,194,10,253,35, 205,223,253, 
58,132,254, 254,13,194,5,253,34, 128,254,205 
20 DATA 29,253,34,136, 254,62, 22, 215,175,215, 62,16, 215,237,75/12 
8, 254,205,43, 45,205,227, 45,42, 126,254, 70,35, 78,35, 35,35,35,229,2 
37,67, 73,92, 175,50 ,133,254,62,22,215,175 
30 DATA 215,62,28,215,205,27,26,225, 126,254,101 ,200, 254,112,202 
157,253,254, 80,202,57,253,254,69,200,254,115,202,20, 253,254, 83,2 
02,20,253,34, 126,254, 42,126,254, 205,223 
40 DATA 253,124,167,194,15,253,58,133,254,60,50,133,254, 42,128, 
254,205,29,253,58,124,254,119,35,34, 128,254, 58,132,254, 254,44, 40 
1217,254, 58, 32,152,42,126,254,205, 223,253 
50 DATA 229,33,0,0, 34,130,254, 42,128, 254,58, 133,254,95,22,0,167 
237, 82,67,94,22,0,229,42,130, 254,25, 34,130,254, 225,35,16, 241,20 
9,42,130,254,167,237,82,202,71,252,33,36 
60 DATA 255,205, 140,254, 62,13, 215,237, 75,73,92, 205,43, 45,205, 22 
7,45,62,58,215,58,133, 254,60, 79,6,0,205,27,26,207 ,8,225,33,3, 255 
124,219,33, 229, 254,24, 214,33,58,255,24 
70 DATA 209,35,195,33,252,33,92,255,24,200,84,93, 124,254,252, 40 
112,237,75,178, 92,167, 43,237, 66,56, 2,235,201 ,225,33, 180,254,205, 
140,254,207 ,8,126,35,254,13,32,250,70,35 
80 DATA 78,237,67,73,92,35,35,35,235,33/212/48,34,134,254,235/1 
75,50,138,254,50,139, 254,126, 254,234, 192,35,126,254, 101,200,254, 
69,200,254,115,202,20,253,254,83,202, 20,253 
90 DATA 34,126,254, 42,126,254, 205,223,253,68,77,237,91,138,254, 
25,34,138,254,96,105,237,91,134,254,25,34,134,254,17,212, 48,167, 
237,62, 237,91 ,136,254,25,229, 94,35, 86 
100"DATA 235,17,179,26, 25,235, 225,115, 35,114, 42,134,254,17, 46,52 
1167,237,82,210,24,253,33,133,254,52, 58,132, 254,254, 44, 40, 182,25 
4,58,32,16, 42,126,254, 205,223,253,237,94 
140 DATA 138, 254,167,237 ,82,194,226,252, 42,126,254, 70,35, 78,35,3 
5,35,237,67, 73,92, 195,81, 253,235, 33,119,254, 175,645,119, 35, 16,25, 
2,50,124,254,50,125,254,235,6,0,126,254,58 
120 DATA 48,8,254,48,56,4,4,35,24,243,50,132,254,35,34,126,254,1 
20,254,6,210,4,253,43,43,17,123, 254,126,214, 48,18, 43, 27,16, 248,2 
21,33,119, 254,221,126 ,0,167,40,13,71 ,42 
130 DATA 124,254,17,16,39,25,16,253,34,124,254,221,126,1,167,40, 
13,71,42,124,254,17,232,3,25,16, 253,34, 124,254,221 ,126,2,167,40, 
13,71 ,42,124,254,17,100,0,25,16, 253,34, 124 
140 DATA 254,221,126 ,3,167,40,13,71,42,124,254)17,10,0,25, 16,253 
134, 124,254,221 ,94,4,22,0,42, 124, 254,25, 34,124,254,201,0,0,0,0,0 
9,0,0,040/0,0,0,0401010,0,0,0,126,215 
450 DATA’ 35,203,126, 40,249,126 ,230,127,215,201,67,79,77,80,73,76 
169,32, 65,68, 68,82, 69,83,83,58,32, 32,32, 32,32, 32,32, 76,73, 18,69, 
ig 8,1,65,68,68,82,69,83,83, 32,79 
160 DATA 65,84, 32,79,70,32,82,65,78,71,69,32,66,69,84,87,69, 69,7 
8,13,82,65, 77,84, 79,80, 43,49, 32,84, 79,32, 54,52 ,53,49,177713,18/1 
178,73, 32,67,19,77,80)73, 76,69, 32,65,68 
170 DATA 68,82,69,83,83,32,65,64,32,83,84,65,02,212,13,18,1,85,8 
3,69,68,32,54,32,68, 73,71, 73,84, 83,32, 79,82) 32, 17,79) 82,69) 32,79 
186,69, 82,70,76,79,215,13,18,1,67, 72, 69,67 
480 DATA 75,83,85,77,32, 68,65, 84,65, 32,69,82,82,79,210,13,18,1,6 
6,89,84,69,32,79,85,84,32,19, 70, 22,82,65, 18,11 ,69,32,66,69,84,87 
169,69,78,32,48,45,50,53,181,13,18,1,60 
190 DATA 76,85,83,32,68,32,79,70,83,69,84,32,69,82,82,79,210/120 
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TT 


USERS 


SOFTWARE 
EXCHANGE 


‘The User Software Exchange (USE for short) provides’ DISCiPLE 
and PLUS D owners with a growing range of software specially 
designed for their systems, 


Here is the latest list of software for sale to INDUG members. 
The software is supplied on tape, for easy transfer to any 
format/size of disc, thus keeping costs as low as possible. 


Tape No Title Program Description 


7001 LCOPY Routines to replace the GDOS printer dump 
routines in your system file. Enables 
Epson compatible printers without Esc * 
to be used with both SCREENS 1 & 2 and 
SNAPSHOT prints. 


7002 MULTI-POKE Program to display and edit 48K SNAPSHOT 
files. Full facilities for entering 
published POKEs i.e. Infinite Lives etc. 
Makes use of printer if attached. 


7003 G-HACKER A graphic investigator. Look inside 
commercial programs, £ind the Sprites and 
pictures. Works in 48K mode but will 
handle many 128K programs. 


7004 I.B.U. The highly successful ‘Incremental Backup 
Utility’, written by Nev Young. 


Each tape, costs £3.95, or £4.95 including airmail postage for 
overseas members. Instructions are supplied where needed and all 
tapes are professionally recorded. Send your order (on a 
separate piece of paper please), clearly stating the Tape 
Number; Title; Quantity required and your membership number, 
to:- INDUG, USE ORDERS, 34 Bourton Road, Gloucester, GL4 OLE, 
England. Cheques (drawn on a UK bank), Postal Orders, Euro 
Cheques or Cash accepted. Payment must be in STERLING. Please 
allow 28 days for delivery. 


B.S. We urgently need more software, send your latest creation 
for evaluation, it may be worth more than you think. 
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